home *** CD-ROM | disk | FTP | other *** search
/ Bioblech 2 / Bioblech_2_1997_KRG_de_Side_A.d64 / pipi in not (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  113 lines
  1. 0 poke808,254:m=0:g=0:s=0:poke53280,0:poke53281,0:printchr$(8)"[147][208]ipi in [206]ot"
  2. 1 print"[198]rom [205]r. [202]oker":print"[215]ritten by [202]ack the [210]apper 1993[145]"
  3. 2 gosub9999
  4. 50 input"[147][215]ie heisst [196]u";na$
  5. 51 print"[207]kay, "na$", es geht los...":forx=1to1000:nextx
  6. 100 print"[147][157]"na$" steht im [200]aus der [194]loeden. [197]r"
  7. 101 print"muss [208]ipi machen. [196]och das [200]aus ist vol-"
  8. 102 print"[145]ler unerklaerlicher [194]loedheiten. [197]r"
  9. 103 print"steht im [200]ausflur. [215]ill er nach"
  10. 104 print"(1) rechts oder"
  11. 105 print"(2) [212]reppe 'rauf?"
  12. 106 gosub9999
  13. 107 ifa$="1"then150
  14. 108 ifa$="2"then200
  15. 109 goto106
  16. 150 m=m+1:ifm>2then2000
  17. 151 print"[147][196]u bist im [211]chlafzimmer von [198]rau [200]eide-"
  18. 152 print"lore. [213]m einen [209]uickybumsi zu machen"
  19. 153 print"brauchst [196]u eine [205]inute. [215]illst [196]u"
  20. 154 print"(1) zurueck oder"
  21. 155 print"(2) durch den [211]chrank?"
  22. 156 gosub9999
  23. 157 ifa$="1"then100
  24. 158 ifa$="2"then300
  25. 159 goto156
  26. 200 print"[147][196]u gehst die [199]ammeltreppe 'rauf und"
  27. 201 print"stehst in einem [203]orridor. [196]ort sind zwei"
  28. 202 print"[145][212]ueren. [197]ine mit der [193]ufschrift '[215][195]' und"
  29. 203 print"[145]eine mit '[199]askammer'. [215]o willst [196]u lang?"
  30. 204 print"(1) [215][195]."
  31. 205 print"(2) [199]askammer."
  32. 206 gosub9999
  33. 207 ifa$="1"then400
  34. 208 ifa$="2"then500
  35. 209 goto206
  36. 300 print"[147][201]m [211]chrank entdeckst [196]u [210]amlows wilden"
  37. 301 print"[204]iebhaber. [197]r tritt [196]ir in die [197]ier und"
  38. 302 print"[196]ein [194]eduerfnis ist befriedigt. [196]ein"
  39. 303 print"[213]rin verfaerbt den [212]eppich. [204]eider ver-"
  40. 304 print"loren!":gosub9999:run
  41. 400 ifs=0thenprint"[147][204]eider brauchst [196]u einen [211]chluessel.":gosub9999:goto700
  42. 401 goto600
  43. 500 print"[147][196]u gehst in die [199]askammer und es stroemt"
  44. 501 print"[145][199]as aus."
  45. 502 ifg=0then550
  46. 503 goto800
  47. 550 print"[196]u stirbst mit voller [194]lase. [204]ooser!":gosub9999:run
  48. 600 print"[147][196]ie [212]uer geht auf, und [196]u stuermst in"
  49. 601 print"die [208]issbude. [196]u spuerst das gute [199]e-"
  50. 602 print"fuehl, wie sich deine [194]lase leert. [196]ein"
  51. 603 print"[218]wang verschwindet, und [196]u bist happy."
  52. 604 print"[194][210][193][214][207]!":gosub9999:run
  53. 700 print"[147][196]u gehst einen [211]chritt zurueck und"
  54. 701 print"faellst in eine [198]alltuer. [202]etzt bis [196]u"
  55. 702 print"im [203]eller. [196]ort sind zwei [203]isten. [215]as"
  56. 703 print"willst [196]u machen?"
  57. 704 print"(1) [203]iste 1 oeffnen?"
  58. 705 print"(2) [203]iste 2 oeffnen?"
  59. 706 print"(3) [196]ie [212]reppe hinauf?"
  60. 707 gosub9999
  61. 708 ifa$="1"then900
  62. 709 ifa$="2"then1000
  63. 710 ifa$="3"then1100
  64. 711 goto707
  65. 800 s=1:print"[196]u setzt [196]eine [205]aske auf und schleichst"
  66. 801 print"[196]ich an den [199]asausstroemer an. [197]s ist"
  67. 802 print"der [193]rsch von [213]we [194]lask. [193]us seinem"
  68. 803 print"[193]rschloch pulst [196]u einen [211]chluessel"
  69. 804 print"'raus. [193]uf ihm steht '[215][195]'. [215]as jetzt,"
  70. 805 print"(1) [204]eiter hoch oder"
  71. 806 print"(2) wieder 'raus?"
  72. 807 gosub9999
  73. 808 ifa$="1"then1200
  74. 809 ifa$="2"then200
  75. 810 goto807
  76. 900 m=m+1:ifm>2then2000
  77. 901 print"[147][201]n der [203]iste befindet sich ein [197]ierla-"
  78. 902 print"ser. [197]r bestrahlt [196]eine [200]oden, so dass"
  79. 903 print"[196]ir eine [205]inute verloren geht. [214]or [193]ngst"
  80. 904 print"[145]laeufst [196]u zurueck in den [200]ausflur.":gosub9999:goto100
  81. 905 print"[145]hast, gehst [196]u die [212]reppe 'rauf.":gosub9999:goto1100
  82. 1000 m=m+1:ifm>2then2000
  83. 1001 g=1:print"[147][201]n der [203]iste befindet sich eine [199]asmas-"
  84. 1002 print"ke. [196]u musst sie aber erst aus einem"
  85. 1003 print"[203]ondom 'rauspulen. [196]as kostet [196]ich eine"
  86. 1004 print"[205]inute [208]isszeit. [206]achdem [196]u die [199]asmaske"
  87. 1005 print"[145]hast, gehst [196]u die [212]reppe 'rauf.":gosub9999:goto1100
  88. 1100 print"[147][196]u gehst die [212]reppe hinauf und kommst in"
  89. 1101 print"[145]einen [199]libberraum. [215]illst [196]u"
  90. 1102 print"(1) zum [203]orridor oder"
  91. 1103 print"(2) eine [193]lditasche, die da liegt, un-"
  92. 1104 print"    suchen?"
  93. 1105 gosub9999
  94. 1106 ifa$="1"then200
  95. 1107 ifa$="2"then1300
  96. 1108 goto1105
  97. 1200 print"[147][196]u gehst die [212]reppe hoch und triffst ei-"
  98. 1201 print"[145]nen [213]ringeist. [197]r glotzt [196]ich an, und"
  99. 1202 print"[196]ein [196]rang wird groesser. [196]u pisst in"
  100. 1203 print"die [200]ose. [218]u spaet!":gosub9999:run
  101. 1300 print"[147][201]n der [193]lditasche findest du eine [208]iss-"
  102. 1301 print"bratpfanne. [206]icht die beste [204]oesung,"
  103. 1302 print"aber [196]u fuellst sie mit gelber [211]osse und"
  104. 1303 print"[145]bist froh!"
  105. 1304 print"[197]nde.":gosub9999:run
  106. 2000 print"[147][207]h nein! [196]rei [205]inuten sind vergangen,"
  107. 2001 print"und [196]u konntest [196]ich immer noch nicht"
  108. 2002 print"auspissen. [196]u gibst dem [196]ruck [196]einer"
  109. 2003 print"[194]lase nach und spuerst die [198]euchtigkeit"
  110. 2004 print"in [196]einer [200]ose. [199]ame over!":gosub9999:run
  111. 9999 geta$:ifa$=""then9999
  112. 10000 return
  113.